perm filename O[TLC,MUS]1 blob sn#063147 filedate 1973-09-15 generic text, type T, neo UTF8
00100	C  GOOD-LOOKS PROGRAM  --  TYPE X TO BACKUP
00200		INTEGER DL,SL,HX,WL
00300	11	FORMAT(A1)
00400	1	FORMAT(' LEGS? GOOD OR BAD?  ',$)
00500	12	TYPE 1
00600		ACCEPT 11,L
00700		IF(L.EQ.'G')GO TO 16
00800	
00900	2	FORMAT(' THIGHS?  ',$)
01000	13	TYPE 2
01100		ACCEPT 11,T
01200		IF(T.EQ.'X')GO TO 12
01300	
01400	3	FORMAT(' KNEES?  ',$)
01500	14	TYPE 3
01600		ACCEPT 11,K
01700		IF(K.EQ.'X')GO TO 13
01800	
01900	4	FORMAT(' CALVES?  ',$)
02000	15	TYPE 4
02100		ACCEPT 11,C
02200		IF(C.EQ.'X')GO TO 14
02300	
02400	5	FORMAT(' ARMS?  ',$)
02500	16	TYPE 5
02600		ACCEPT 11,A
02700		IF(A.EQ.'X')GO TO 15
02800	
02900	6	FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW?  ',$)
03000	17	TYPE 6
03100		ACCEPT 11,S
03200		IF(S.EQ.'X')GO TO 16
03300	
03400	7	FORMAT(' WAIST? GOOD, WIDE OR NARROW?  ',$)
03500	18	TYPE 7
03600		ACCEPT 11,H
03700		IF(H.EQ.'X')GO TO 17
03800	
03900	8	FORMAT(' HIPS? GOOD, WIDE OR NARROW?  ',$)
04000	19	TYPE 8
04100		ACCEPT 11,B
04200		IF(B.EQ.'X')GO TO 18
04300	
04400	9	FORMAT(' BUST? GOOD, BIG OR SMALL?  ',$)
04500	20	TYPE 9
04600		ACCEPT 11,N
04700		IF(N.EQ.'X')GO TO 19
04800	
04900	10	FORMAT(' NECK? GOOD, LONG OR SHORT?  ',$)
05000		DL=1
05100		IF(L.EQ.'G')GO TO 21
05200	C  JUMP IF GOOD LEGS
05300		IF(T.EQ.'B')DL=2
05400		IF(K.EQ.'B')DL=3
05500		IF(C.EQ.'B')DL=4
05600	21	SL=1
05700		IF(S.EQ.'N')SL=3
05800	C   SHOULDER LINE BEST
05900		IF(S.NE.'W')GO TO 22
06000		SL=2
06100	C   SLEEVELESS BEST, NO SHOULDER LINE
06200		IF(A.EQ.'B')SL=4
06300	C   LONG SLEEVES,NO SHOULDER LINE
06400	41	FORMAT(/' << SKIRT SHOULD BE '$)
06500	22	TYPE 41
06600		GO TO(23,24,25,26),DL
06700	
06800	27	FORMAT('+SHORT.'/)
06900	23	TYPE 27
07000		GO TO 28
07100	
07200	29	FORMAT('+MEDIUM SHORT.'/)
07300	24	TYPE 29
07400		GO TO 28
07500	
07600	30	FORMAT('+MEDIUM LONG.'/)
07700	25	TYPE 30
07800		GO TO 28
07900	
08000	31	FORMAT('+LONG.'/)
08100	26	TYPE 31
08200	
08300	28	GO TO(32,33,34,35),SL
08400	
08500	36	FORMAT(' << ANY SHOULDER CUT.'/)
08600	32	TYPE 36
08700		GO TO 37
08800	
08900	38	FORMAT(' << SLEEVELESS IS BEST.'/)
09000	33	TYPE 38
09100		GO TO 37
09200	
09300	39	FORMAT(' << USE SHOULDER LINE.'/)
09400	34	TYPE 39
09500		GO TO 37
09600	
09700	40	FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
09800	35	TYPE 40
09900	
10200	37	IF(W.EQ.'W')WL=1
10300		IF(W.EQ.'N')WL=2
10310		GO TO(42,44),WL
10320		GO TO 45
10400	141	FORMAT('<<USE NO WAISTLINE.'/)
10500	42	TYPE141
10600		GO TO 45
10700	43	FORMAT('<<USE WAISTLINE.'/)
10800	44 	TYPE42
10900		GO TO 45
11000	45	IF(H.EQ.'G')GO TO 200
11100		IF(H.EQ.'W')HX=1
11200		IF(H.EQ.'N')HX=2
11300		GO TO (47,490),HX
11400	47	IF(B.EQ.'S')TYPE 48
11500	48	FORMAT(' <<USE EMPIRE WAIST.'/)
11510		IF(B.EQ.'B')TYPE 48
11620		GO TO 200
11630	491	FORMAT(' <<USE HIP-LINE'/)
11640	490	TYPE 491
11700	200	IF(A.EQ.'G')GO TO 201
11800		IF(S.EQ.'N')TYPE 49
11900	49	FORMAT(' <<USE 3/4 SLEEVE.'/)
12000		IF(S.EQ.'W')TYPE 50
12100	50	FORMAT(' <<USE LONG SLEEVE.'/)
12200	201	IF(B.EQ.'G')GO TO 202
12300		IF(B.EQ.'B')TYPE 51
12400	51	FORMAT(' <<NO SHOULDER LINE OR NO EMPIRE WAIST.'/)
12500		IF(B.NE.'S')GO TO 202
12600		IF(S.EQ.'W')TYPE 48
12700		IF(S.EQ.'N')TYPE 52
12800	52	FORMAT(' <<USE SHOULDER LINE UNDER-GATHERING.'/)
12900	202	CALL EXIT
13000		END